home *** CD-ROM | disk | FTP | other *** search
- object Form7: TForm7
- Left = 334
- Top = 116
- Width = 303
- Height = 172
- Caption = 'Manual Print Position'
- Color = clBtnFace
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- FormStyle = fsStayOnTop
- OldCreateOrder = True
- OnClose = FormClose
- OnDeactivate = FormDeactivate
- OnShow = FormShow
- PixelsPerInch = 120
- TextHeight = 16
- object Label1: TLabel
- Left = 10
- Top = 10
- Width = 273
- Height = 16
- Caption = 'Images will print (one per page) at this location:'
- end
- object Label2: TLabel
- Left = 12
- Top = 39
- Width = 149
- Height = 16
- Caption = 'From LEFT SIDE of page:'
- end
- object Label3: TLabel
- Left = 49
- Top = 69
- Width = 110
- Height = 16
- Caption = 'From TOP of page:'
- end
- object Label4: TLabel
- Left = 246
- Top = 39
- Width = 38
- Height = 16
- Caption = 'Label4'
- end
- object Label5: TLabel
- Left = 246
- Top = 69
- Width = 38
- Height = 16
- Caption = 'Label5'
- end
- object Edit1: TEdit
- Left = 167
- Top = 30
- Width = 71
- Height = 24
- Hint =
- 'The left side of the image will be at this location. The image ' +
- 'is placed against the right margin if it will not fit between th' +
- 'e left margin entered here and the right side of the page. A la' +
- 'rge value will place images as far right as possible. '
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- Text = '0.00'
- end
- object Edit2: TEdit
- Left = 167
- Top = 59
- Width = 71
- Height = 24
- Hint =
- 'The top of the image will be at this location. The image is pla' +
- 'ced against the bottom margin if it will not fit between the top' +
- ' margin entered here and the bottom of the page. A large value ' +
- 'will place images as low as possible. '
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- Text = '0.00'
- end
- object BitBtn1: TBitBtn
- Left = 20
- Top = 98
- Width = 70
- Height = 31
- Hint = 'Use the above margins.'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnClick = BitBtn1Click
- Kind = bkOK
- end
- object BitBtn2: TBitBtn
- Left = 187
- Top = 98
- Width = 92
- Height = 31
- Hint = 'Leave margins as they were before.'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- OnClick = BitBtn2Click
- Kind = bkCancel
- end
- end
-